Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/proglib.sit/Resource Library/card_7098.txt

Text File | 1989-05-29 | 11.9 KB | 508 lines

-- card: 7098 from stack: in
-- bmap block id: 0
-- flags: 4000
-- background id: 6603
-- name: Add
----- HyperTalk script -----
on idle
  global runHilite

  if runHilite and not (visible of msg) then
    if visible of card field "Types" is true then
      highlight A, F1, F7
    else
      highlight A, F1
    end if
  end if
  put not runHilite into runHilite
end idle

on InitAdd
  put "" into card field File
  put "" into card field List
  put "" into card field Select
  put "" into card field Name
  put "" into card field "resType"
  put "" into card field "Types"
  set the visible of card button "Copy ICN# -> ICON" to false
end InitAdd

on Update
  if highlight of card button "Other:" is false then
    set visible of card field "resType" to false
    set visible of card field "Types" to false
    put "" into card field "HighlightAreas"
  end if
  if card field resType = "ICN#" then
    if the visible of card button "Copy ICN# -> ICON" = false then
      set the visible of card button "Copy ICN# -> ICON" to true
      put "" into card field "HighlightAreas"
    end if
  else
    if the visible of card button "Copy ICN# -> ICON" = true then
      set the visible of card button "Copy ICN# -> ICON" to false
      put "" into card field "HighlightAreas"
    end if
  end if
  ResHandle "list", card field "File", card field resType
  put SortLines(the result) into card field "List"
  set scroll of card field "List" to 0
  put "" into card field "Select"
end Update



-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=11 top=107 right=129 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open╔
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    put StandardFile("get") into theTarget
  else
    put StandardFile("get", "STAK", "XCMD", "APPL", "rsrc", "FNDR") into theTarget
  end if
  if theTarget is empty then
    beep 1
    answer "Request canceled." with "OK"
  else
    put theTarget into card field File
    put StripPath(theTarget) into card field Name
    if highlight of card button "Other:" is true then
      put "" into card field "List"
      send mouseUp to card button "Other:"
    else
      Update
    end if
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=289 top=201 right=219 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XFCN
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into tmp
  put tmp into card field resType
  put tmp into card field resButton
  Update
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=289 top=141 right=159 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ICON
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into tmp
  put tmp into card field resType
  put tmp into card field resButton
  Update
end mouseUp



-- part 6 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=100 top=140 right=238 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: List
----- HyperTalk script -----
on mouseUp
  put ClickLine() into elem
  put line ClickLine() of card field "List" into tmp
  if tmp <> "" then
    put tmp into card field "Select"
  end if
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=99 top=271 right=288 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Select


-- part 3 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=289 top=181 right=199 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XCMD
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into tmp
  put tmp into card field resType
  put tmp into card field resButton
  Update
end mouseUp



-- part 8 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=41 top=24 right=60 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File


-- part 9 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=337 top=31 right=51 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: resButton


-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=289 top=161 right=179 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: snd
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into tmp
  put tmp into card field resType
  put tmp into card field resButton
  Update
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=12 top=254 right=306 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy
----- HyperTalk script -----
on mouseUp
  global External_Error, StackName
  put card field "Select" into resname
  if resname <> "" then
    ResHandle "copy", card field "File", StackName, (card field resType), resname
    if "ok" is in External_Error then
      AddCard (card field resType), (the result)
    end if
  else
    answer "You must select something first!" with "Oops!"
  end if
end mouseUp



-- part 22 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=100 top=111 right=131 bottom=277
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 23 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=94 top=24 right=88 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HighlightAreas


-- part 34 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=353 top=140 right=221 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Types
----- HyperTalk script -----
on mouseUp
  put ClickLine() into elem
  put line ClickLine() of card field "Types" into tmp
  if tmp <> "" then
    put tmp into card field "resType"
    Update
  end if
end mouseUp



-- part 35 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=353 top=220 right=237 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: resType


-- part 33 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=289 top=221 right=239 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other:
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into card field resButton
  put "" into card field "List"
  set the visible of card button "Copy ICN# -> ICON" to false
  ResHandle "type", card field "File"
  put the result into q
  put SortLines(q) into card field "Types"
  set the scroll of card field "Types" to zero
  put "" into card field resType
  set the visible of card field "resType" to true
  set the visible of card field "Types" to true
  put "" into card field "HighlightAreas"
end mouseUp



-- part 37 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=264 top=255 right=307 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy ICN# -> ICON
----- HyperTalk script -----
on mouseUp
  global External_Error, StackName
  put card field "Select" into resname
  if resname <> "" then
    ResHandle "icon", card field "File", StackName, resname
    if "ok" is in External_Error then
      AddCard "ICON", (the Result)
    end if
  else
    answer "You must select something first!" with "Oops!"
  end if
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=289 top=121 right=139 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CURS
----- HyperTalk script -----
on mouseUp
  set the highlight of card button (card field resButton) to false
  set the highlight of the target to true
  put the short name of the target into tmp
  put tmp into card field resType
  put tmp into card field resButton
  Update
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=11 top=161 right=213 bottom=91
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy All
----- HyperTalk script -----
on mouseUp
  global External_Error, StackName

  put card field "resType" into resType
  answer "Copy all the" && resType && "resources?" with "Ok" or "Cancel"
  if it = "Cancel" then exit mouseUp

  put "copy" into command
  if resType = "ICN#" then
    answer "Copy ICN#s as…" with "ICN#s" or "ICONs"
    if it = "ICONs" then put "icon" into command
  end if

  put card field "List" into todo
  put card field "File" into file
  repeat while todo <> ""
    put line one of todo into resname
    delete line one of todo
    if command = "copy" then
      ResHandle "copy", file, StackName, resType, resname
    else
      ResHandle "icon", file, StackName, resname
    end if
    if "ok" is in External_Error then
      if command = "icon" then
        AddCard "ICON", (the Result)
      else
        AddCard resType, (the Result)
      end if
    else
      answer "Copy failed" with "OK"
    end if
  end repeat
end mouseUp



-- part contents for card part 9
----- text -----
Other:

-- part contents for background part 9
----- text -----
Add Card

-- part contents for card part 23
----- text -----
19
475 26 504 59 opaq 1
475 60 504 93 opaq 2
424 163 505 185 roun 3
424 221 505 243 roun 4
424 192 505 214 roun 5
424 105 505 127 roun 6
471 300 502 331 opaq 7
424 134 505 156 roun 8
12 108 78 127 roun -1
289 201 346 219 radi -2
289 141 346 159 radi -3
289 181 346 199 radi -4
289 161 346 179 radi -5
13 255 90 304 roun -6
289 221 351 239 radi -7
289 121 346 139 radi -9
12 162 89 211 roun -10
101 141 258 237 scro -1 16
354 141 395 220 scro -7 16